Typo in add-major-mode-key-based-...

diff --git a/which-key.el b/which-key.el
index 66f940ccf1e59757e4e6bf9678627e9373309e96..bdbf9c70d4e70bb930b2a5dd564324a41734d9f6 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -225,7 +225,7 @@ bottom."
   ;; TODO: Make interactive
   (when (not (symbolp mode))
     (error "MODE should be a symbol corresponding to a value of major-mode"))
-  (let ((mode-alist (car (assq which-key-key-based-description-replacement-alist))))
+  (let ((mode-alist (cdr (assq which-key-key-based-description-replacement-alist))))
     (setq mode-alist (which-key//add-key-based-replacements
                       mode-alist key repl more)
           which-key-key-based-description-replacement-alist